home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 November / macformat-030.iso / Demos / MF29 / 100 Years of Motoring Demo / Support Files / Tech / Shared.Dir / 00928.ls < prev    next >
Encoding:
Text File  |  1995-03-16  |  1.4 KB  |  51 lines
  1. on checkSign
  2.   global whichPlank, gMotorpath
  3.   set whichPlank to the mouseV
  4.   if (whichPlank > 42) and (whichPlank < 100) then
  5.     put "Top" into field "whichPlank"
  6.   end if
  7.   if (whichPlank > 128) and (whichPlank < 174) then
  8.     put "Driving Seat" into field "whichPlank"
  9.     go(1, gMotorpath & "Support Files:Dashbrd:Dashbrd.dir")
  10.   end if
  11.   if (whichPlank > 189) and (whichPlank < 217) then
  12.     put "Garage" into field "whichPlank"
  13.     goTech()
  14.   end if
  15.   if (whichPlank > 237) and (whichPlank < 264) then
  16.     puppetSound("Click")
  17.   end if
  18.   if (whichPlank > 287) and (whichPlank < 315) then
  19.     put "Cars Exhibit" into field "whichPlank"
  20.     go(1, gMotorpath & "Support Files:Dashbrd:Speedo.dir")
  21.   end if
  22.   if (whichPlank > 344) and (whichPlank < 364) then
  23.     put "Exit" into field "whichPlank"
  24.     go(1, gMotorpath & "Support Files:Credits.dir")
  25.   end if
  26. end
  27.  
  28. on goTech
  29.   global techSwitch
  30.   if techSwitch = 1 then
  31.     go("rejoin", "Workshop.dir")
  32.   else
  33.     go(1, "Garage.dir")
  34.   end if
  35. end
  36.  
  37. on animate theCast, theClicks
  38.   set whichSprite to the clickOn
  39.   set whichCast to the castNum of sprite whichSprite
  40.   set theFrames to whichCast + theCast
  41.   repeat while whichCast < theFrames
  42.     set the castNum of sprite whichSprite to whichCast
  43.     updateStage()
  44.     set whichCast to whichCast + 1
  45.     theTempo(theClicks)
  46.   end repeat
  47.   set whichCast to theFrames - theCast
  48.   set the castNum of sprite whichSprite to whichCast
  49.   updateStage()
  50. end
  51.